% V20210224 - 10.3 GW_ID$

INCLUDE "GW.bas"

cpp = GW_NEW_PAGE()

colpik = GW_ADD_COLORPICKER (cpp, "Colorpicker control:", "FF00FF")

GW_RENDER (cpp)

DO
  r$ = GW_WAIT_ACTION$()
  IF IS_IN (GW_ID$(colpik), r$) = 1 THEN % color picker change
    ncol$ = MID$ (r$, IS_IN(":", r$)+1) % extract '#rrggbb' out of
                                        % 'CtlId:#rrggbb'
    POPUP "Changed color to " + ncol$

  ENDIF

UNTIL r$ = "BACK"